home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / SCORE.ASC < prev    next >
Text File  |  1986-11-04  |  2KB  |  40 lines
  1. 50000 P=D0-J2:IF(P<>0)AND(R1=0)THEN 50020
  2. 50010 IF P<5 THEN P=5
  3. 50020 N=(K2+K1)/P:K=INT(500*N+.5):L=0
  4. 50030 IF G1<>0 THEN L=100*S8
  5. 50040 I=0
  6. 50050 IF LEFT$(S5$,1)="E"THEN M=0
  7. 50060 IF LEFT$(S5$,1)="F"THEN M=1
  8. 50070 IF LEFT$(S5$,1)=""THEN M=2
  9. 50080 IF A1=0 THEN I=200
  10. 50090 J=10*K1+50*K2+K+L-I-100*B1-100*M-35*N1-3*S1-C4
  11. 50100 PRINT:IF J<>0 THEN 50120
  12. 50110 PRINT"AS YET, YOU HAVE NO SCORE.":GOTO 5040
  13. 50120 PRINT"YOUR SCORE --":PRINT:IF K1=0 THEN 50140
  14. 50130 PRINT K1;TAB(5);"ORDINARY KLINGON(S) DESTROYED";TAB(36);10*K1*MR
  15. 50140 IF K2= 0 THEN 50160
  16. 50150 PRINT K2;TAB(5);"KLINGON COMMANDER(S) DESTROYED";TAB(36);50*K2*MR
  17. 50160 IF K=0 THEN 50190
  18. 50170 PRINT FNR(N);TAB(5);"KLINGONS PER STARDATE, AVERAGE";
  19. 50180 PRINT TAB(36);K*MR
  20. 50190 IF S1=0 THEN 50210
  21. 50200 PRINT S1;TAB(5);"STAR(S) DESTROYED";TAB(36);-3*S1*MR
  22. 50210 IF B1=0 THEN 50230
  23. 50220 PRINT B1;TAB(5);"STARBASES DESTROYED";TAB(36);-100*B1*MR
  24. 50230 IF N1=0 THEN 50250
  25. 50240 PRINT N1;TAB(5);"SOS CALL(S) TO A STARBASE";TAB(36);-35*N1*MR
  26. 50250 IF C4=0 THEN 50270
  27. 50260 PRINT C4;TAB(5);"CASUALTIES INCURRED";TAB(36);-C4*MR
  28. 50270 IF M=0 THEN 50290
  29. 50280 PRINT M;TAB(5);"SHIP(S) LOST OR DESTROYED";TAB(36)-100*M*MR
  30. 50290 IF A1<>0 THEN 50310
  31. 50300 PRINT TAB(5)"PENALTY FOR GETTING KILLED";TAB(36);-200*MR
  32. 50310 IF G1=0 THEN 50330
  33. 50320 PRINT TAB(5);"BONUS FOR WINNING ";S$(S8);" GAME";TAB(36);L*MR
  34. 50330 PRINT TAB(5);"-------------------------------------"
  35. 50340 PRINT TAB(28);"TOTAL";TAB(36);J*MR;"**":IF "CO"=LEFT$(A$,2) THEN GOTO 5040
  36. 50350 GOTO 901
  37. 60000 REM end overlay
  38. ---"
  39. 50340 PRINT TAB(28);"TOTAL";TAB(36);J*MR;"**":IF "CO"=LEFT$(A$,2) THEN GOTO 5040
  40. 50350 GOT